perm filename BSCR2[MUS,LCS] blob sn#130157 filedate 1974-11-14 generic text, type T, neo UTF8
00100	SCR2B;
00200	FMV1 0 120;
00300	P2 .25 5,5 .25 10,10 .25 15,15 .25 20,20;
00400	P3 .25 150,150 .25 300,300 .25 450,450 .25 600,600;
00500	P4 .5 9999.17,9999.17 .1 .5,.5 .1 1,1 .1 2,2 .1 3,3 .1 4,4;
00600	P5 2.75;
00700	P6 0/P7 6;
00800	P8 6/P9 .1;
00900	P10 100;
01000	P11 MOVE/15 0,0 1,1/15 1,1 0,0/30 0,0 0,0/30 0,1 0,1;
01100	14 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0*;
01200	P12 MOVE/15 1,1 0,0/30 0,0 0,0/15 0,0 1,1/30 0,1 0,1;
01300	7.5 1,1 0,0/14 0,0 0,0/7.5 0,0 1,1*;
01400	P13 MOVE/30 0,0 0,0/15 0,0 1,1/15 1,1 0,0/30 0,1 0,1;
01500	7.5 0,0 1,1/7.5 1,1 0,0/14 0,0 0,0*;
01600	P14 MOVE/15 0,0 0,0/15 0,0 1,1/15 1,1 0,0/15 0,0 0,0/30 0,1 0,1;
01700	7.5 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0/7.5 0,0 0,0*;
01800	P15 .2;
01900	P16 .125 -5,-5 .125 -10,-10 .125 -15,-15 .125 -20,-20;
02000	P17 .1 5,5 .1 6,6 .1 7,7 .1 9,9 .1 10,10;
02100	P32 MOVE/60 .5,.5 0,0/30 0,0 0,0/30 0,0 .5,.5*;
02200	END;
02300	FMV2 0 120;
02400	P2 .25 5,5 .25 10,10 .25 15,15 .25 20,20;
02500	P3 .25 150,150 .25 300,300 .25 450,450 .25 600,600;
02600	P4 .1 ".5" .1 "1" .1 "2" .1 "3" .1 "4" .1 "5" .1 "6" .1 "7" .1 "9" .1 "10";
02700	P5 2.75;
02800	P6 0/P7 6;
02900	P8 6/P9 .1;
03000	P10 100;
03100	P11 MOVE/15 0,0 1,1/15 1,1 0,0/30 0,0 0,0/30 0,1 0,1;
03200	14 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0*;
03300	P12 MOVE/15 1,1 0,0/30 0,0 0,0/15 0,0 1,1/30 0,1 0,1;
03400	7.5 1,1 0,0/14 0,0 0,0/7.5 0,0 1,1*;
03500	P13 MOVE/30 0,0 0,0/15 0,0 1,1/15 1,1 0,0/30 0,1 0,1;
03600	7.5 0,0 1,1/7.5 1,1 0,0/14 0,0 0,0*;
03700	P14 MOVE/15 0,0 0,0/15 0,0 1,1/15 1,1 0,0/15 0,0 0,0/30 0,1 0,1;
03800	7.5 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0/7.5 0,0 0,0*;
03900	P15 .2;
04000	P16 .125 -5,-5 .125 -10,-10 .125 -15,-15 .125 -20,-20;
04100	P17 .2 5,5 .2 6,6 .2 7,7 .2 9,9 .2 10,10;
04200	P32 MOVE/60 .5,.5 0,0/30 0,0 0,0/30 0,0 .5,.5*;
04300	END;
04400	FMV3 0 120;
04500	P2 .25 5,5 .25 10,10 .25 15,15 .25 20,20;
04600	P3 .25 150,150 .25 300,300 .25 450,450 .25 600,600;
04700	P4 .5 9999.17,9999.17 .1 .5,.5 .1 1,1 .1 2,2 .1 3,3 .1 4,4;
04800	P5 2.75;
04900	P6 0/P7 6;
05000	P8 6/P9 .1;
05100	P10 100;
05200	P11 MOVE/15 0,0 1,1/15 1,1 0,0/30 0,0 0,0/30 0,1 0,1;
05300	14 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0*;
05400	P12 MOVE/15 1,1 0,0/30 0,0 0,0/15 0,0 1,1/30 0,1 0,1;
05500	7.5 1,1 0,0/14 0,0 0,0/7.5 0,0 1,1*;
05600	P13 MOVE/30 0,0 0,0/15 0,0 1,1/15 1,1 0,0/30 0,1 0,1;
05700	7.5 0,0 1,1/7.5 1,1 0,0/14 0,0 0,0*;
05800	P14 MOVE/15 0,0 0,0/15 0,0 1,1/15 1,1 0,0/15 0,0 0,0/30 0,1 0,1;
05900	7.5 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0/7.5 0,0 0,0*;
06000	P15 .2;
06100	P16 .125 -5,-5 .125 -10,-10 .125 -15,-15 .125 -20,-20;
06200	P17 .1 5,5 .1 6,6 .1 7,7 .1 9,9 .1 10,10;
06300	P32 MOVE/60 .5,.5 0,0/30 0,0 0,0/30 0,0 .5,.5*;
06400	END;
06500	FMV4 0 120;
06600	P2 .25 5,5 .25 10,10 .25 15,15 .25 20,20;
06700	P3 .25 150,150 .25 300,300 .25 450,450 .25 600,600;
06800	P4 .5 9999.17,9999.17 .1 .5,.5 .1 1,1 .1 2,2 .1 3,3 .1 4,4;
06900	P5 2.75;
07000	P6 0/P7 6;
07100	P8 6/P9 .1;
07200	P10 100;
07300	P11 MOVE/15 0,0 1,1/15 1,1 0,0/30 0,0 0,0/30 0,1 0,1;
07400	14 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0*;
07500	P12 MOVE/15 1,1 0,0/30 0,0 0,0/15 0,0 1,1/30 0,1 0,1;
07600	7.5 1,1 0,0/14 0,0 0,0/7.5 0,0 1,1*;
07700	P13 MOVE/30 0,0 0,0/15 0,0 1,1/15 1,1 0,0/30 0,1 0,1;
07800	7.5 0,0 1,1/7.5 1,1 0,0/14 0,0 0,0*;
07900	P14 MOVE/15 0,0 0,0/15 0,0 1,1/15 1,1 0,0/15 0,0 0,0/30 0,1 0,1;
08000	7.5 0,0 0,0/7.5 0,0 1,1/7.5 1,1 0,0/7.5 0,0 0,0*;
08100	P15 .2;
08200	P16 .125 -5,-5 .125 -10,-10 .125 -15,-15 .125 -20,-20;
08300	P17 .1 5,5 .1 6,6 .1 7,7 .1 9,9 .1 10,10;
08400	P32 MOVE/60 .5,.5 0,0/30 0,0 0,0/30 0,0 .5,.5*;
08500	END;
08600	RN1 5 15;
08700	P2 MOVE/4 .125,.062/3 -3,-3/3 .083,.041*;
08800	P3 MOVE/4 1000,800/3 0,0/3 600,400*;
08900	P4 MOVE/2 1000,500/2 500,1000/3 1000,1000/1 2000,1000/2 1000,3000*;
09000	P8 MOVE/2 -1,1/2 1,1/3 0,0/1 1,1/2 1,-1*;
09100	P9 MOVE/2 1,1/2 1,-1/3 0,0/1 1,-1/2 -1,-1*;
09200	P15 .2;
09300	P16 SUBN;
09400	END;
09500	RUN;